﻿' ******************************************************************************
' ** 
' **  Yahoo! Managed
' **  Written by Marius Häusler 2011
' **  It would be pleasant, if you contact me when you are using this code.
' **  Contact: YahooFinanceManaged@gmail.com
' **  Project Home: http://code.google.com/p/yahoo-finance-managed/
' **  
' ******************************************************************************
' **  
' **  Copyright 2011 Marius Häusler
' **  
' **  Licensed under the Apache License, Version 2.0 (the "License");
' **  you may not use this file except in compliance with the License.
' **  You may obtain a copy of the License at
' **  
' **    http://www.apache.org/licenses/LICENSE-2.0
' **  
' **  Unless required by applicable law or agreed to in writing, software
' **  distributed under the License is distributed on an "AS IS" BASIS,
' **  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
' **  See the License for the specific language governing permissions and
' **  limitations under the License.
' ** 
' ******************************************************************************


Namespace YahooManaged.Search.BOSS



    Public Class ImageSearchResult
        Inherits SearchResult

        Private mPublisher, mRestrictions, mCopyright As String
        Private mRefererUrl, mRefererClickUrl As Uri
        Private mFileSize As Long
        Private mFileFormat As ImageFileType
        Private mHeight, mWidth As Integer
        Private mThumbnail As Thumbnail


        Public ReadOnly Property RefererUrl() As Uri
            Get
                Return mRefererUrl
            End Get
        End Property
        Public ReadOnly Property RefererClickUrl() As Uri
            Get
                Return mRefererClickUrl
            End Get
        End Property
        Public ReadOnly Property FileSize() As Long
            Get
                Return mFileSize
            End Get
        End Property
        Public ReadOnly Property FileFormat() As ImageFileType
            Get
                Return mFileFormat
            End Get
        End Property
        Public ReadOnly Property Height() As Integer
            Get
                Return mHeight
            End Get
        End Property
        Public ReadOnly Property Width() As Integer
            Get
                Return mWidth
            End Get
        End Property
        Public ReadOnly Property Thumbnail() As Thumbnail
            Get
                Return mThumbnail
            End Get
        End Property

        Friend Sub New(ByVal result As SearchResult, _
                       ByVal refUrl As Uri, _
                       ByVal refClkUrl As Uri, _
                       ByVal fileSize As Long, _
                       ByVal fileFormat As ImageFileType, _
                       ByVal height As Integer, _
                       ByVal width As Integer, _
                       ByVal tmbUrl As Uri, ByVal tmbHeight As Integer, ByVal tmbWidth As Integer)

            MyBase.New(result.Title, result.Abstract, result.Url, result.ClickUrl)
            mRefererUrl = refUrl
            mRefererClickUrl = refClkUrl
            mFileSize = fileSize
            mFileFormat = fileFormat
            mHeight = height
            mWidth = width
            mThumbnail = New Thumbnail(tmbUrl, tmbHeight, tmbWidth)
        End Sub

    End Class




End Namespace